Attribute VB_Name = "mod0x12"
Public Sub handleWhisper(ByVal data As String)
  
  userList = data
  splitList = Split(userList, ", ")
    
  found = False
  For i = 0 To UBound(splitList)
    GetUser = splitList(i)
    GetUser = Replace(GetUser, "@", "")
    GetUser = Replace(GetUser, "%", "")
    
    If LCase(GetUser) = LCase(whisperTo) Then
      found = True
       sendPacket &HE, username & Chr$(0) & GetUser & Chr$(0) & whispMessage
      Exit Sub
    End If
  Next
    
  If found = False Then
    AddChat vbGray, "-- ", vbGray, "That user is not logged on!"
    frmStatus.txtMainWindowAddChat.Caption = frmStatus.txtMainWindowAddChat.Caption + 1
  End If

End Sub
